home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / misc / acs-notify / amirc / amircsys.amirx next >
Text File  |  1998-05-24  |  752b  |  26 lines
  1. /* 
  2. $VER: AmirSys [Send Msg To AmicomSys User] V0.4ß (24-01-98) © Copex - aWo
  3. */
  4.  
  5. arg usr text
  6.  
  7. If usr = '' | text = '' Then Do; 'echo P='d2c(27)'b«AmiComSys» C=1 USAGE: /ACS <ACS USER> <TEXT TO SEND>'; exit; end
  8.  
  9. NL = '0a'x; QU = '22'x; col = 2
  10.  
  11. OPTIONS RESULTS
  12.  
  13. if show(p,'AMICOMSYS') then do 
  14.     ADDRESS AMICOMSYS
  15.     send MSG usr QU||text||QU; res = rc
  16.       address()
  17.     if res = 0 then 'echo P='d2c(27)'b«AmiComSys» C='col' Sending '||text||' To '||usr
  18.     if res = 10 then 'echo P='d2c(27)'b«AmiComSys» C='col' Error Sending Message To '||usr
  19.     if res = 1 then 'echo P='d2c(27)'b«AmiComSys» C='col' 'usr' did NOT confirm your request'
  20.  
  21.     end;Else do
  22.     'echo P='d2c(27)'b«AmiComSys» C=1 Error Sending MSG to '||usr||' AmicomSys did not Responed'
  23. end
  24.  
  25. Exit
  26.